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T5000 --- TIMER DIAGNOSTIC P/N=1635159 EC=375147 PAGE 91 15000: ==— TIMER DIAGNOSTIC P/N=1635159 EC=375147 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LoGso00 ** MAP FC HISTORY ** 002500 2534 201 A(ENTPT) POINT TO MAP ENTRY POINT TABLE 
Ua ae ak fe ae ak ak a ak oe ake ade ak ake kc ae ake ae ake ake ake ak akc kak ke akc ake akc ac ake ake ke kai aie akc ake kc a akc ae ake akc a a ake ake ake akc fe ala ak: ak ake ak akc ae ake ake ake ake a ak akc ak 202 KOO ICR OR ROI I ok a ak ak ak afr alee akc ak ake ake ak cake ke ake ai ake ake ak keke oie akc ake a ae ake akc ake ae a ake aks fe ae fe abe afe fe ae ae ae 
5 * x 203 3K OR ok oko oto igi i io oi ok ko kok kako iiak kick kak kaki ak ak ak ak ak cake ake ake a ake ake a ake ale afe aa ake 
6 * lala PREREQUISITES laa * 204 ** oe a 
J * * 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) ¥ 
8 * NONE * 206 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER nk oe 
9 x * 207 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR <* 
10 3 Oo lO ro IGG OR IG GIO kk kk kk Gk kk kk ai ak akc ak ak ak akc ae ake ale ake ake te ak ak 208 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS ode 
11 * * 209 ** PURPOSE THEY ARE: ald 
12 * Tee MODIFICATIONS x * 210 ** te 2k 
13 * * 211 ** STEP AND RULE ADDRESS TABLE me ae 
14 * CHANGE MADE TO CORRECT 4952 PROBLEM * 212 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND me 
15 * * 213 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. xx 
16 RR Ok RI gi a kak iG i oc ak ke ak ak akc ake akc ake ak kak ke ake oe keke ake akc akc aka ake akc ake akc ake ake ake ake akc ie ak akc ake ake ae akc ake ae 214 ** ENTRIES ARE AS FOLLOWES ate akc 
17 * * 215 ** A AN ADDRESS OF THE ROLE DC START AREA *% 
18 * i 2k ak REA'S INCORPORATED kok ok x 216 ** B THE STEP NUMBER IN DECIMAL a 
19 * * 217 ** C AN EQUATE FOR THE STEP NUMBER wok 
20 * NONE * 218 ** xk 
21 * * 219 ** RULE INFORMATION TABLE a 
22 GOR OO IOI IO Oi Ii ok kak lok kak aak a akakok ik kek kako ak ak gai kai kkk ak akc ake aie ae ake ake ake ac ake a 920 ** THIS TABLE CONTAINFS THE REQUIRED INFORMATION TO EXECUTE kk 
23 x * 221 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN eo 
au * 1 Ik SPFCIAL INSTRUCTIONS ek ak * 222 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS % 
25 * * 223 ** INDICATED WITH A X*QOO0* FOR THE RULE FQUATE. paled 
26 * NONE * 224 ** we ok 
27 * * 225 ** SQUES ek 
28 oko go ok ok i OI GG i ick ak gkaiok kk koko i keke ak ok kako kaka ak kok aka a ak ic ak ake ak ake a akc ake 226 ** A) RULE EQUATE x'0100! ek 
29 * * Zot -** 8 ADDRESS OF THE YES LEG RULE *% 
30 * re E. C. HISTORY : a * 228 ** *% 
31 * * 229 ** SFIXT ke 
32 * DATE O010CT76 DATE O2ZDEC7T6 DATE 15MAR77 DATE 10J0N77 * 230 ** A) RULE EQUATE X*'0101' * 
aa a E.C. 578468 E.C. 578469 E.C. 5787174 E.C. 578625 is ee oe B) ADDRESS OF MESSAGE TO PRINT eis 
35 * DATE 20JAN78 DATE O6NOV78 DATE 15JAN79 DATE * 233.5" SSTOP or 
36 * ¥eC. 755331 E.C. 755551 E.C. 375147 E.C. * 234 ** A) RULE EQUATE x'0102' me 
37 * * 235 ** B) ADDRESS OF MESSAGE * 
53 ok 2k ke a ok 2 ae fe ake of 2k 2 ke ie a fe 2 2 2k keke ke ak akc ke ake ak ake a aie ica ake ak kc 2k ake akc afc ke a ate ake ake keke akc ake ae ake ke ac ake ake af a ake a ake ake ake ae ake fe ae fe ake oe 236 ** sok 
002500 4Q 15000 START X*'*2500° START ADDRESS OF ALL 'I' TYPE PROG 237 ** $GOTO * 
000100 41 @QUES EQU X'0100°8 FQUATED VALUE FOR MDI STATEMENT 238 ** A) RULE EQUATE x*0200'! ae 
000191 42 @aFIXT EQU Xx'0101' EQUATED VALUE FOR MDI STATEMENT 239 ** B) ADDRESS OF MESSAGE eK 
000102 43 @STOP EQU X'0102' EQUATED VALUE FOR MDI STATEMENT 24Q ** C) NAME OF MAP TO GO TO * 
000200 44 @GOTO EQU X'02008 FQUATED VALUE FOR MDI STATEMENT 241 ** D) ENTRY POINT WITHIN GO TO MAP TO USE ala 
000201 45 @CALL EQU x'0201° EQUATED VALUE FOR MDI STATEMENT 242 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE mk 
000300 46 @INPT EQU X*0300° EQUATED VALUE FOR MDI STATEMENT 244 *% a ok 
000400 47 @QUXX FQU X'O40O0! EQUATED VALUE FOR MDI STATEMENT 245 ** S$CALL weak 
000500 48 @TUKX EQU x*O5008 EQUATED VALUE FOR MDI STATEMENT 246 ** A) RULE EQUATE X'0201'° me ake 
000600 49 @NVLD EQU x'0600° EQUATED VALUE FOR MDI STATEMENT 247 ** B) ADDRESS OF MESSAGE * 
000000 50 E EQU x'QO00! EQUATE FOR EQU 248 ** C) NAME OF MAP TO CALL * 
000004 51 N EQU X'OO004' FQOUATE FOR NOT EQUAL 249 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000008 52 HI EQU X'0008! EQUATE FOR HIG 250 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE wed 
00000C 53 NH EQU x*000C! aaa FOR NOT HIGH 251 ** ok 
000010 54 LO EQU X*'00108 EQUATE FOR LO 252 ** SINPT ke ok 
000014 55 NL EQU X'OO148 EQUATE FOR NOT LOW 253 ** A) RULE EQUATE X'0300'! * 
000010 56 LT EQU xX'OO108 EQUATE FOR LESS THAN 254 ** B) INPUT TYPE Weep en OR HEX) * 
00000C 57 LE EQU x*'QQadoc' EQUATE FOR LESS THAN OR EQUAL TO 255 ** C) ADDRESS OF YES LEG RULE we 
000008 58 GT EQU x'O008! EQUATE FOR GREATER THAN 256 ** D) DESTINATION LOCATION OF INPUT DATA * 
000014 59 GE EQU X*OO14! EQUATE FOR GREATER THAN OR EQUAL [9 257 ** E) LENGTH OF INPOT DATA mk % 
000200 60 ON EQU x'Q200° EQUATE FOR ON 258. -** F) LOWER LIMIT OF GOOD DATA * x 
000202 61 OF EQU x'0202! EQUATE FOR OFF 259 ** G) HIGHER LIMIT OF GOOD DATA me 
000204 62 EQU X*'O204' EQUATE FOR MIXED 260 ** ok 
000000 63 EBC EQU X¥*0000° FQUATE FOR EBCDIC DATA TRANSFER 261 ** SQUKX 1 ok 
000001 64 HEX EQU xX'0001° EQUATE FOR HEX DATA TRANSFER 262 ** A) RULE EQUATE X'Q400! me 
000001 65 XTRNL EQU X*'OO0018 EQUATE FOR EXTERNAL REFERENCE 263 ** B) ADDRESS OF YES LEG RULE * 
000000 66 INTRNL EQU X' OOOO! FQUATE FOR INTERNAL REFERENCE 264 ** C) TU BRANCH TO ADDRESS ety s *% 
000000 67 PARM EQU X*00008 EQUATE INDICATING PARAMETER 265 ** D) TU BRANCH TO ADDRESS (SECONDARY) * x 
000001 68 DA Ey X'QOO18 EQUATE FOR DEVICE ADDRESS 266 ** E) LENGTH OF PARAMETER I Y * 
000002 69 EQU x'0002' EQUATE FOR UNIT ADDRESS 267 ** F) PARAMETER TO PASS TO TU ** 
000000 70 DUMHY EQU X*0000°* DUMMY EQUATE 268 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ee 
001800 72 PID QU *-X' ODOC! ADDRESS OF MDI HEADER 269 ** wk 2k 
000232 73 PTYPE EQU *-X"'22CE* ADDRESS OF PROCESSOR TYPE FIELD 270 ** STUXX 2 ok 
00180C 74 STEPNUM EQU PID+X*QO0C! ADDRESS OF DECIMAL STEP NUMBER 271 ** A) RULE EQUATE X'0500! me 
00180E 75 1 EQU PID+X*'QOOE® ADDRESS OF OPTION WORD ONE 272 ** B) ADDRESS OF YES LEG ROLE * 
001810 76 OPWD2 EQU PID+#+X*'0010° ADDRESS OF OPTION WORD TWO 273 ** C) TU BRANCH TO ADDRESS ala 
001818 77 TUSTATUS EQU. PID+x*'0018! ADDRESS OF TU STATUS WORD 274 ** D) TYPE OF COMPARE TO MAKE ON RFSULTS * 
OO181A 78 TUWORK EQU PID¢X*OQTA?t ADDRESS OF TO WORK AREA 275 ** E) LENGTH OF COMPARED RESULTS ak 
Q0O0189A 79 TOPARM1 EQU PID¢X*OO9A' ADDRESS OF PARM 1 POINTER 276 ** F) MASK FIELD FOR COMPARE * 
00189C 80 TUPARM2 EQU PID*+X*QO9C' ADDRESS OF PARM 2 POINTER 277 ** G) LENGTH OF PARAMETER IN BYTES whe ak 
00189E 81 TUPARM3 EQU PID4X'QO9E® ADDRESS OF PARM 3 POINTER 278 ** H) PARAMETER TO PASS TO THE TU x & 
0018A0 82 TUPARM4Y EQU PID¢X'QOAOS ADDRESS OF PARM 4 POINTER 279 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ** 
0018A2 83 TUPARMS £EQU PID+X'QOA2'* ADDRESS OF PARM 5 POINTER 280 ** a ie 
O018A4 84 TUPARM6 EQU PID#+X'QOA4' ADDRESS OF PARM 6 POINTER 281 ** SNVLD wk 
0018A6 85 TUPARM7 EQU PID*#X*QOQOA6! ADDRESS OF PARM 7 POINTER 282 ** A) RULE EQUATE X*0600! ** 
0018A8 86 TUPARM8 EQU PID¢X*'QOA8! ADDRESS OF PARM 8 POINTER 284 ** wk ak 
QO18AA 87 TOUPARM9 EQU PID+X"QOAA' ADDRESS OF PARM 9 POINTER 285 ** ENTRY POINT TABLE * 
OO18AC 88 TUPARM10 EQU PID4+X*QOAC! ADDRESS OF PARM 10 POINTER 286 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * & 
QO18AE 89 TUPARMN11 EQU PID¢X'OQOAE® ADDRESS OF PARM 11 POINTER 287 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE = 
0018B0 90 TUPARM12 EQU PID¢x*OOBO! ADDRESS OF PARM 12 POINTER 288 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: ie 
0018B2 91 TOPARM13 EQU PID¢x*QQB2' ADDRESS OF PARM 13 POINTER 289 ** * 
0018B4 92 TUPARMTG EQU PID¢X*QOOBG! ADDRESS OF PARM 14 POINTER 290 ** A) NAME OF ENTRY POINT * 
0018B6 93 TUPARM15 EQU PID+¢X'OOQB6! ADDRESS OF PARM 15 POINTER 291 ** B) ADDRESS OF ENTRY POINT RULE TABLE * 
0018B8 94 TUPARM16 EQU PID+¢x'QOBS8* ADDRESS OF PARM 16 POINTER 292 ** ** 
OO18BA 95 TUMSGWTR EQU PID+X"OOBA* ADDRESS OF -> TO COMMON MSG WRITER 293 ** THE ENTRY POINT TABLE END IS INDICATED BY A xX*0000! * 
QOO18BE 96 TUUA EQU PID+X"QOBE? ADDRESS OF UNIT ADDRESS IN EBC 294 ** wk xk 
0018C0 97 TODA EQU PID+X*QOCO! ADDRESS OF DEVICE ADDRESS IN EBC 295 ** MESSAGE TABLE wk 
0018C2 98 TUBUFF EQU PID+xX*Q0C2" ADDRESS OF LAST USED WORD IN MAP 296 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ee 
0018C4 99 TULAST EQU PID#xX*Q0C4! ADDRESS OF LAST ADDRESSABLE WORD 297 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: =" 
0018C6 100 TURESULN EQU PID¢xX*OQC6! ADDRESS OF LENGTH OF TU RESULTS 298 ** mk 
0018C8 101 TURESUL EQU PID+X*QOC8B! ADDRESS OF TU RESULTS FIELD 299 ** A) EQUATE FOR START OF MESSAGE BLOCK ** 
0018FC 102 MAPNAME EQUO PID+X"QOOFC! ADDRESS OF MAP NAME FIELD IN HEX 300 ** B) NUMBER OF LINES OF MESSAGE * 
001948 103 TUINPT EQU PID+xX*O1488 ADDRESS OF $INPT DATA 301 ** C) LENGTH OF FOLLOWING LINE adic 
00196E 104 PARMARA EQU PID+X*Q16E* ADDRESS OF $INPT INPUT AREA 302 ** Dp) FIRST LINE OF MESSAGE xm 
0019B8 105 @DCADD1 EQU PID*X'O1B8! MDI POINTER 303 ** E) LENGTH OF FOLLOWING LINE * 
0019BA 106 @DCADD2 EQU PID+X'O1BA® MDI POINTER 304 ** F) SECOND LINE OF MESSAGE “* 
0019C4 107 SUPSTAT EQU PID+x*'Q1Cu? ADDRESS OF MDI STATUS 305 ** G TC. * x 
0019D0 108 DEVADD EQU PID#X*Q1DO! ADDRESS OF DEVICE ADDRESS TABLE 0 306 ** * & 
CO19DA 109 DEVADD1 EQU PID+X"QO1DA' ADDRESS OF DEVICE ADDRESS TABLE 1 307 3k Ro lok lak tok kok ioigioi i loli loka ioigk iokokoioidokakoigiok ia iokokoi ga ioioiokaiakaiaiogakak ak alata ae ak ak kc ake ake ge age age ak 
001984 110 DEVADD2 FEOU PID¢xX'O1EU! ADDRESS OF DEVICE ADDRESS TABLE 2 308 sok ook io OOOO I IIR i kok rr aigi I GI I iO IIR IR gg tak gk ak aaa ae ae ake ake ake ake aie 
QO19EE 111 DEVADD3 EQU PID+X'QO1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 
0019F8 112 DEVADD&Y EQU PID+X"O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 
001A02 113 DEVADDS EQU PID*X*'O2C2! ADDRESS OF DEVICE ADDRESS TABLE 5 
QO1A0C 114 DEVADD6 EQU PID#+xX!020C* ADDRESS IF DEVICE ADDRESS TABLE 6 
001A 16 aie DEVADD7 BO re Paes ela Or ADDRESS OF DEVICE ADDRESS TABLE 7 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 POET EY <ORSECE 2 Exe SrET SOLReE STR ERENT EOPARAGHT TES CORE ta¢e 
3371 i or IOIGI IOI GI IGG I iIGIOIDIGIGI RI IO Ii i i IKK kai ake ake akc ak 426 * EQUATES USED BY TU'S AS CONSTANTS * 
312 ea a OO ES IOI OO GIS IGG IOI IOI IR ICI a 427 * ee 
313 ee “ne ee 428 Se ree he ener ne ence Caeee caer eens taetern saa Nene se erene 
314 ** STEP AND RULE * x : LUS CHAR 
315 ee NP ADE PO DRESS Th Bue re 000060 430 MINUS EOQU  Cr-t MINUS CHAR 
316 OO a a OO I IO OG I IOI i I I iG iG I IA I kai i Ri IO IGOR a IOI K aoiaie ak a ak 000000 G32 ZERO EQU- 0 
33717 RO GO OO IGG IG OGIO GOI II GIGI GIG oii oii ik gioi i GIG IR I IOI I I IK kagok ik ak ak 000001 433 ONE EQU 1 
002502 2510 318 DC AL2 (N00001) 000002 434 TWO, FOU 2 
992504 0001 319 DC XL2"0001! 00009 3 435 THREE EQU 3 
000001 320 EQNO0001 EQU 0001 000004 436 FOUR EQU 4 
002506 2522 321 DC  AL2(N00002) 000005 437 FIVE EQU 5 
002508 0002 322 DC = XL2"C002' 000006 438 SIX, EQU 6&6 
000002 323 EQNO0002 EQU 9002 900007 439 SEVEN EQU) 7 
00250A 2528 324 De AL2(N00003) 000008 44Q EIGHT EQU 8 
00250C 0003 325 DC XL2"0003! 999009 G4) NINE EQU 9 
000003 326 EQNOC003 EQU 0003 000008 G42 TEN FOU 10 
00250E 0000 327 Pato (posit) 000008 G43 ELEVN EQU) 14 1 
328 Feo do gO OGG RO CI ROR OIG OGIO IORI OGIO IO ORI ROR ROI GE Rak aa ak o0000C 444 TWELV EQU 12 12 
329 ARO OSI OO RO HOGG Oi zai IEG GIG IGE a IKK a Kk 00000D G45 THRIN EQU 13 13 
331 3% . 500010 447 SEXTN FOU 16 16 
a 
332 ** RULE INFORMATION TABLE ok 000020 448 THRY2 EQU 32 32 
933 eA AGIOS OG GIGIOO OGIO SIGIR IGG ICICI Ia ak x IK a ak kak ek ik 000040 G49 STIXT4 EQU 64 64 
334 m90g01"  STUKK T5000/02,C000/20,0%= (000074) r¥S- 100003, cT=(cos0ee) + Bon aao fee mueee zeU aec Nee 
N TU T50 = 
pee ane “bene 335,N00001  STUXK 75000, 02,0000, £0, 0T= (Q00074) ,YES=NO0003,CT=(CO0060), —X Oe laR “coe eae ae 226 
002512 2528 3374 DE ALZENCODO3) 000800 43 TWOK EQU 2088 2048 
002514 257c¢ 3384 DC A(T 00} 000Cc00 454 THREK EQU 3072 3072 
002516 0000 3394 DC AL2(E 001000 G55 FOURK EQU 4096 4096 
002518 0002 3404 DC AL2 03} FPFFFF 457 M4 EQU) =] =i 
00251A 0000 3414 DC X¥*0000 FFFFFE 458 M2 EOU = =2 2 
302¢ ALIGN WORD FFFFFD 459 M3 EQU -3 -3 
00251c 0000 3434 C AL2 (0) PFFFFC 460 M4 HOU =o es 
00S81E Ci1ct suis CVARS 462 SOOO OOS GIS IOS GIGI IOI III IOR AIG I IO AO IG IK AOI IK 
345+¢ ALIGN WORD 463 * : 
002520 196E 3464 AL? (PARMARA 464 * THE FOLLOWING ARE FOQUATES FOR BIT DISPLACEMENTS FROM THE * 
NODES: (aon 347 N00002 SCALL TYPESXTRNL, HAP=5002, EP=R, FT= (F00076) ,GTO= ((5002,A) ) ee : BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. : 
+ 
005894 253; 3494 hs a (F000 76) G67 eA OOO OGIO IG IIGOI OIRO ISIC I IOI IOI KIC 
002526 FSFOFOF2 350+ DC CL4*5002 000000 468 BSO QU 
00252A C140 3514 DC CL2¢AS 000001 469 BSI EQU J 
00252c 0001 352+ DC AL2 (XTRNL 000002 470 BS2 EQU 2 
353 n00003 $SToP P= (00080) 900003 471 BS3 EQU 3 
00252E 0102 354+N00003 DC A (@STOP 000004 472 BS4 EQU 4 
002530 2566 355+ DC a (pooo8b 900005 473 BSS EQU- 5 
002532 0000 356 DC ALD (DUMMY) 000006 474 BS6 EQU 6 
002534 357 ENTPT EQU * 000007 475 BST EQU 7 
35 8 SEARO OO I OO IOC IOI OI GIS IOI GG GIGI GIGI ICI IGRI KK ak 000008 476 BS8 EQU- 8 
959: lok gO IO IC IG I IR OR I GK CI IK KK ak akc ak ak ake 000009 G77 BSI EQU 9 
oe cam itt wet HE is 
* ENTRY * 
360 #x Pee pees . 00000C 480 BS12 EQU 12 
363 eA CIO IO SIS IG IC IOIGIOIO IOI I GIA IO IIG IG I ISI II IR IOI Ia ak ak 00000D 481 BS13 EQU = 13 
36 JERE a GIGI ISG IAGO AIG GIGIGIG I RIC GIOI I I IK ak ak QOQO0E 482 BS14 EQU 14 
365 ENTPT EP=A,STEP=00001 00000F poe bole BAU. cae 
002534 C140 366+ DC CL2¢ ht 485 COPY T5000 
002536 2510 367+ DC A (N00001 00257C 486 T5000 * 
002538 0000 368 De AL? (DUMMY) B87 EGG IO IG OI OG RIO IC IGG RGIS GIGI a I IK gk aR ak ak a ak 
369 ESE OE a GO OGIO RII ICICI IGISI IOI IOI IGIGIO IG GIGI II HCI RIK ak NOG Settee EAT Leet ee tee ee ee ee ee ee eee en eee 
370 eR OO OOO ORO OIG GG GIO Ioi i ai ii i a a aC IGG aI Ii Ik kak ae ak 489 +* nee 
3710 4 he 490 ** TIMER DIAGNOSTIC «x 
372 - MESSAGE TABLE ke ok tes vl (BASIC FUNCTION TEST) nie 
2k 
370 ERR AO OOOO IOIOIGIO GIG I IG I IG SIIOI SII i I GIGI CII kaka aK ik G93 ** aes 
375 2A OG ORIG IOI IG mk i I I Ik i ake ak ak aki ak ak aka a aki ak ac ak ake ake ak ae ake ak ae ake ak UGG ** THIS DIAGNOSTIC TESTS ALL THE FUNCTIONS OF THE * 
00253A 376 P00076 = EQU 495 ** TIMER ATTACHMENT EXCEPT THE EXTERNAL GATE AND he 
003534 0001 375 D AL2 (0001) 496 *x THE EXTERNAL CLOCK CIRCUITRY. ae 
DDseiee EaeORUCeDONOGNeOe. Sus pteoaoe 496 +e DO NOT RUN WITH STOP ON ADDRESS ON, AS THI 
DC CLOOGO' TIMER DIAGNOSTIC DID NO TLY. ! 2 S fHIS : 
000866 330 roo080  Egu > RUM CUBR Ee TS 499 ** CAUSES ALL MACHINE LANGUAGE INSTRUCTIONS TO 4 
003566 0001 3817 D AL2 (0001) 500 ** TAKE MORE TIME TO EXECUTE, AND ANY ROUTINE * 
005568 0012 382 De n (0018) 501 ** WHICH DEPEND OPON PRECISE’ SOFTWARE TIMING LOOPS *# 
00256A C7DED6C440CSDS5c44 383 DC CLO018"GOOD END THIS MAP.! 282 oe WILL DETECT FALSE ERRORS. ae 
COPY COMEQU 
385 OOO OO OO OGIO OI OIRO IG III GI IG I IG I IK IK ak ak ak ak ak S04 ** WHEN AN ERROR IS DETECTED, INSTRUCTIONS ARE = 
a : Boe eee eee ee eee tee Ee TOUS TTEOCAEOKDOT ERT ee 
EQUATED NAMES FOR SUPPORTE ‘ * 
388 * ° Bee nao : 507 ** THE ADDRESS IN THE PROGRAM WHERF TH ek 
389 eo GOGO OIG OI III IOI IOI I gC I Ia a ak aK ak ak afc ak ale ak ak ak af. a ak ak 508 ** ERROR WAS DETECTED, AND THE STATUS WORD IS 7 
000000 390 OUT FOU 0 OUT SVC 509 *% PRINTED. ve 
000002 392 IDLE £EQU 2 IDLE svc S11 ** BIT-00 TEST STARTED ~- TURNED ON AT xs 
000003 393 IDLES EQU) 3 IDLE SVC - INDEPENDENT OF CPU TYPE 212 ** BEGINNING, AND OFF AT END OF TEST. ** 
990004 394 CHNGE FOU CHANGE LEVEL S¥C 213 ** BIT-14 AN UNEXPECTED TIMER INTERRUPT “ 
ALLOW RETURN ON : 
00000¢ 396 EXIT FOU é rere ec ee ee ae 515 &* BIT-15 ANY ERROR OCCURED BIT * 
900007 397 TERM EQU 7 TERMINATE SVC S1G0*% 4% 
000008 398 RESET EQU 8 RESET DEVICE SVC B17 FEI G OIG GIGI OG a I IG IG I IOI II i i i ak 
600009 399 RID FOU 9 BERD ID B18 A SO OOO ISI IIS I GIGI Ki ak i i ki aA a 
BengOr ne prcSS EON op START CYCLE STEAL STATUS SVC 002580 6802 2CB4 233 ‘ B TO BRANCH TO START TEST 
PREPARE DEVICF SVC 
00000D 403 READO EQO 13 READ WITH FUNCTION BIT 3 OFF SVC 523 * 
00000 40% READ EOU 14 READ WITH FUNCTION BIT 3 ON S¥e WM tt ttitri ttt t tt ttt TI TTT itt eT TTT TST TTT eT S TTS ee ee eee es et 
00000F 4OS RSTAT EQU 15 READ STATUS SVC 22> * NAME~ DELAY SUBROUTINE 
000010 406 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 228 @ 
000011 4O7 WRIT] EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC ogi x PURPOSE PROVIDE ANY NUMBER OF 10 USEC DELAYS 
000012 4O8 CTRL EOU 18 CONTROL SVC 528 * BEFORE RETURNING TO THE CALLER. ‘DELI! 
000013 409 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 222 * CAN BE CHECKED ANYTIME FROM A HIGHER 
000014 410 CICB EU 20 CONNECT INTERUPT CONTROL BLOCK SVC 530 * LEVEL TO DETERMINE WHAT THE REMATNING 
000015 411 HIO FOU 21 HALT ALL 1/0 231 * COUNT IS. 
000016 412 REOSD FOU 22 QUEST USF OF DCP DISK SVC 232 * 
000017 413 RELSD EQU 23 RELEASF USE OF DCP DISK SVC 533 * CALLING SEQUENCE-R6 MUST CONTAIN aHe ee a ADDR. 
000018 414 HALT EOU 5u HALT SVC 534 * RS MUST CONTAIN HEX NUMBER OF 10 
000019 415 ETOH FOU 25 EBCDIC TO HEX SVC (STRING 235 * NICROSEC. DELAYS (INS 1). 
00001A 416 HTOE FOU 26 HEX TO EBCDIC SVC (STRING) 536 * 
900018 rae ATOH EQU 27 ASCII TO HEX svc TRING 23) : RETURN- TO ADDRESS CONTAINED IN R6. 
60001D 819 ETOR EOU 465 pocate AscrE Sv¢ (STRING 539 eS OS GO OO IG GG IG IOI RIG IGE II Ki 
O0001E 420 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 002584 240 DEL QU 
OQ001F 421 READI EQU 31 READ DATA SETS FOR MDI/UTIL 002584 6D0OD 259C 541 MVW R5,DEL1 SET COUNT IN STORAGE 
000020 422 WRRITI EQU 32 WRITE DATA SETS FOR OTIL 002588 6EOD 2594 542 MVW RG, Delete SET UP RETURN 
U2 OC OOO IRI OIG IGG IOI III IOI I I AG ISK Ik ao ak ake ae ak teak ak 00258C 4029 259C FFFF 543 DELX AWI * 
455 * * 002592 6800 0000 544 DEL2 BZ rt le RETURN * 10 USEC- 
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002596 5000 545 NOP ; * PER- 00268C 9028 2724 26F0 661 MVD BADDR IRC PUT EBCDIC DATA IN MSSG 
002598 5000 546 NOP * PASS. - ON 4955 002692 4020 272C 26D8 662 MVA ARM3 PUT DATA ADDR IN CNTL BLOCK 
00259A 50F8 547 J DEL LOOP ok 002698 601A 663 SVC ERaee HEX TO EBCDIC 
00259c 0000 548 DEL1 DC A eee 00269A 9028 2724 26FE 664 MVD BADDR, EEA PUT EBCDIC DATA IN MSSG 
00259E 0000 549 Sf DC A (k= * 0026A0 4020 272C 18C8 665 MVA TURESOL, PARM3 PUT DATA ADDR IN CNTL BLOCK 
0025A0 0023 550 AL DC X'002 4953 0026A6 601A 666 SVC HTOE HEX TO EBCDIC 
0025A2 0025 551 CL DC x*00258 4955 0026A8 9028 2724 270C 667 MVD BADDR, STAT PUT EBCDIC DATA IN MSSG 
552 * OO26AE 4724 2760 668 MVA RCMSG, R7 
C5 Re ROO ok koi ii GI III IO I IOI I III ak kok i ak i ie akc ak ok ake a akc kot af ak fe afc 0026B2 4424 ‘I80E 669 HVA OPWD1, R4 
555 * NAME- MACHINE CHECK SUBROUTINE 0026B6 4c05 670 TBT (RY 5} 
556 * 0026B8 120D 671 JN RINTE JUMP IF NO PRINT IS ON 
557 * PURPOSE= TO FIELD MACHINE CHECKS WHEN THEY OCCUR, O0O26BA 6C08 26DA 672 MVW IRTN, R& PUT INTERNAL RTN/CKPT IN R4 
558 * TERMINATE THE PROGRAM, PRINT A MESSAGE, AND 0O026BE 6B08 26D8 673 MVW EA,R3 * R3 HAS THE ADDRESS THAT THE- 
559 * RETORN TO THE DCP. 0026C2 7B61 FFFC 674 AWL -4,R3 * FAILURE WAS DETECTED AT. 
560 * 0026C6 4224 0000 675 MVWI 0,82 ZERO R2 
561 * CALLING SEQUENCE- VIA MACHINE CHECK XFER VECTOR. 0026CA 6908 180C 676 MVW ptp+12,R1 PUT ADDR. & TYPE CODE IN R1 
562 * 0026CE 6808 180A 677 MV PID+10, RO PUT STEP NUMBER 0 
563 * RETURN- EVENTUALLY TO THF DCP. 0026D2 6000 678 SVC OUT PRINT MESSAGE 
poset 264 OO foi iO Rk I IG I i kk ak 2k kk aie ake ake ak ake ake ake akc a ate ak a ake ake ake ake ake fea ake ac af aie ake ak akc ak 0026D4 6802 0000 O40 RINTE B km % 
MK FOU * 
0O25A4 6301 566 DIS 4 DISABLE INTERRIPTS 0026D8 0000 681 FE DC ne be 
002546 582F 260C 567 CPPSR SVPSW PUT PSW IN STORAGE 0026DA 0000 682 IRTN DC A (*=* 
OO25AA 8838 0008 26D8 568 MVW X¥'0008'*, FA SET UP ER ADDR FOR INTER SUBR 0026DB 683 ICKPT EQU TRIN 
0025B0 6F03 267C 569 BAL INTER, R7 PRINT INTERNAL RIN/CKPT MSSG 0026DcC 0000 684 A (*- Tk 
0025B4 8828 260C 2724 570 MVW SVPSW,BADDR UP TO CONVERT PSW 0026DE C9ID5SE3C5D9D5C1D34 685 RCMS DC C'INTERNAL RIN/CKPT='* 
QOO25BA 6A08 2724 571 MVW BADDR,R BOT PSW IN R2 0026FO0 00000000 686 IRC DC 2A (*- 
OO25BE 4020 272C 2728 572 MVA DADDR, PARM3 PUT DATA ADDR IN CNTL BLK OO26F4 6BY4O0CSD9O4OCICHC4D 687 pc Ct, FR ADDR='! 
0025c4H 4724 272A 573 MVA PARM2,R7 POT CNTL BLK ADDR IN R7 0026FE 00000000 688 EEA DC 2A (*-* 
0025C8 601A , 574 SVC HTOE HEX TO EBCDIC 002702 6B40E2ZE3C1E340EF6C 689 DC C', STAT WD=! 
0025CA 9028 2724 2750 575 MVD BADDR, PSW PUT EBCDIC PSW IN MSSG 00270cC 00000000 690 STAT DC 2n ~* 
0025D0 6808 180A 245 i MVW PID+10,R0 oer ee £33 * oe heed 
+ R PUT STEP NOMBER IN RO 
0025D4 4020 272C 180A 578 MVA PID+10, PARM3 PUT DATA ADDR IN CNTL BLK 002712 00000000 693 SDCP DC 2A (ee -* DCP XFER VECTOR SAVE AREA 
OO25DA 601A 579 SVC HTOE HEX TO EBCDIC 002716 271A 694 DUMVE DC A(IDCB 
0025DC 9028 2724 273C 280 : MVD BADDR, RTN PUT EBCDIC RTN IN MSSG 002718 271C 632 : DC A (IDCB#2) 
0025E2 6908 180C 582 MVW PID+12,R1 PUT ADDR. & TYPE CODE IN R1 00271A 2666 697 IDCB DC A (ERTN EVEN DDB 
0025E6 4020 272C 180C 583 MVA PTD+12, PARM3 PUT DATA ADDR IN CNTL BLK 00271C 2668 698 Dc ALORTN ODD DDB 
OO25EC 601A 584 SVC HTOE HEX TO EBCDIC 699 * 
OO25EE 9028 2724 2746 585 NVD BADDR, CKPT PUT EBCDIC RTN IN HSSG 00271E 0000 700 SAVA1 DC A (*¥=* 
586 * 002720 00c0 701 DC x*ooc0? 
0O0O25F4 6B08 26D8 587 MV EA,R3 PUT SAVED IAR IN R3 002722 2732 702 PARM1 DC A (MKMSG) 
OO25F8 9028 26FE 275A 588 MVD EEA, IAR PUT EBCDIC IAR IN MSSG 002724 00000000 703 BADDR DC 2A (*-*) 
589 * 002728 0000 704 DADDR DC A ( *-*) 
590 x 00272A 0002 705 PARM2 DC A (2) 
QOO25FE 4724 2722 591 MVA PARM1, R7 GET CNTL BLK ADDR 00272c 0000 706 PARM3 DC A sees! 
002602 6C08 259E 592 MVW ST,R4 PUT ADDR OF LAST IDCB USED IN R4 00272E 2724 707 PARM&Y DC A (BADDR) 
002606 6000 593 SVC 0 OUT PRINT MESSAGE 002730 3803 708 DC xX" 3803! 
002698 6802 2658 594 B EEND 002732 D4Cc3D2406040D4C1D 709 MKMSG DC C'*MCK - MAP=! 
00260C 0000 595 SVPSW DC A (*-*) 00273c 00000000 710 RTN DC 2n (k= *), 
BOT Fe a ae ake a 2k oe a oh ake 3 2 af ok af akc ake 2h ok ae ic oe ak ake 3c fe aie a aie fe 3 afc 3K ak ak af 2c fe ae oe ofc ie afc ok ok akc ok 2 ake akc 2K ok ok ake ke 002740 WOEZE3CSD7T7E 711 DC ct STEp=' 
598 * NAME- ENDING SUBROUTINES 002746 00000000 432 CKPT DC 2A (*-* 
599 * OO274A U4OXODTEZE67E 43 DC ct psye=t 
600 * PURPOSE~= END PROGRAM EXECUTION WHEN GOOD RUNS AND 002750 00000000 714 PSW DC 2a (¥25) 
601 * ERRORS OCCUR. 002754 4040C9C1D97E 715 DC ct IAR=8 
602 * 00275A 00000000 716 IAR DC 2A eo 
603 * CALLING SEQUENCE- BRANCH TO THE CORRECT LABELS. 00275E 0000 717 DC x* 0000 
604 * 002760 26DE 718 RCMSG DC A (RCMS) 
605 * RETURN- TO THE DCP. 719 * 
606 FOR ICICI IGIGCICI GI GIGIIOI GOI GI GGIGIOI GIG IGRI IOIGIGIGI aI IC I a a 3k ak kak ak aka ake akeafe 721 ie ake ae af ote af ake ake ake ote af she af ah a aK af ok af ake af af of afc ae ake ate afc ake af oe afc ae ak she ae ie fe ate ake afc ak afk ae ie af ake ae ah ate aie ade ae ie ok ok 2k ae ak 3k 
00260EF 607 BBB EQU * 722 * NAME- GO TO LEVEL 3 SUBROUTINE 
00260E 6301 608 DIS 1 DISABLE INTERRUPTS 723 * 
002610 402c 18C8 0001 609 OW! 1,TURESUL SET ERROR CONDITION FOR MDI 724 * PURPOSE+ GET CPU ON LEVEL 3. 
002616 680C 2936 610 To RSO RFSET EVEN TIMER 725 * 
00261A 680C 293A 611 TO RS1 RESET ODD TIMER 726 * CALLING SEQUENCE-R7 MUST CONTAIN RETURN ADDRESS. 
00261E 6F03 2762 612 BAL OFF, R7 GET TO LVL 3 727 * 
002622 6F03 267C 613 BAL INTER, R7 PRINT INTERNAL RTN/CKPT NUMBER 728 * RETURN- TO ADDRESS CONTAINED IN R7. 
614 * ae ADDRESS THAT ERROR OCCURED 729 SSNANIRE LES PEA CHEREATASSRE RS SENSES ECE EEESSRA REESE ENE ENS 
615 * AND THE STATUS WORD- 002762 730 OFF EQU. 
616 * ate O= TEST STARTED BIT 002762 6F9OD 2788 731 4VW OFF R42 SET UP RETURN 
617 * BIT 14= ONEXPECTED TIMER INT 002766 4020 2BEO 2786 732 MVA ore, LLSB SET IARB 
618 * BIT 15= ERROR OCCURED BIT 00276C 4724 0003 733 MVWI 
002626 5018 619 J EEND 002770 SF26 2BE0 734 SELB 3,8 iiss SET LVL 3 PENDING 
620 * 002774 4724 0002 735 MVYI 
621 * GOOD END ROUTINE 002778 5SF26 2BE6 736 SELB R?,DLLSB TURN OFF LVL 2 
622 * 00277C 4724 0001 737 MVWI 
002628 623 GEND EQU * 002780 SF26 2BE6 738 SELB R?,DLLSB TORN OFF LVL 1 
002628 6301 624 DIS 002784 6100 739 LEX ‘ EXIT LVL 0 
00262A 6F03 2762 625 BAL OFF, R7 GET TO LVL 3 002786 6802 0000 740 OFFR ~ * RETURN 
00262E 4020 18C8 0000 626 MVWI 0, TORESUL SET STATUS WORD TO O 702 2 OK OR I a IOI aK ak 2k ak ak ak ak ak aie ake 2k ake ate ak ae akc ake ake ak i akc ais cate a a ake akc a akc akc ak a 
002634 627 CEND Eou 743 * NAME- GO TO LVL 0 SUBROUTINE 
002634 6908 2B00 628 MVW SAVA, re GET XFER VECTOR ADDRESS 744 * 
002638 9060 2712 629 MVD SDCP, th RESTORE DCP XFER VECTORS 745 * PURPOSE= GET CPU ON LEVEL 0. 
00263C 8828 271EF OOCA 6 30 MVW SAAN < i OOA® RESTORE DCP MCK RTN ADDR 746 * 
002642 6201 631 EN 1 747 * CALLING SEQUENCE-R7 MUST CONTAIN RETURN ADDRESS. 
002644 4020 2BEO 2656 632 MVA CEND1,LLSB GO TO LVL O AND THEN LEX VIA SVC - 748 * 
OO264A 4724 0000 633 MVWI EXIT SO THAT THE DCP DOESNT GET- 749 * RETURN- TO ADDRESS CONTAINED IN R7. 
0O0264E SF26 2BE0 634 SELB R7,LLSB MESSED UP. 750 peer eee etre een RIGO IO I GIGI gi I I a IOI ki ac ak 2k ke ake ake ak ake ake ake ake a akc a ak 
635 * 00278A 751 LVO EOU 
002652 6802 0000 636 GOBCK B mk RETURN TO ocP ON LEVEL 3 00278A 6FOD 27B6 752 MV RT LVO R¢2 SET UP RETURN 
002656 6006 637 CEND1 SVC EXIT EXIT LEVFL DROP TO LEVEL 3 00278E 4020 2BEO 279C 753 MVA tv6a,LLSB SET IARB 
638 * ERROR FND ROUTINE - TURN ON FRROR BITS IN grits WORD 002794 4724 0000 754 MVWI O0,R7- 
639 * BEFORE COMING HERE. 002798 5F26 2BE0 755 SELB R7,LLSB GO TO LVL 0 
640 * 00279cC 4724 0001 756 LVOA MVWI 
002658 641 EEND EOQU- * 002780 SF26 2BE6 7157 SELB R7,DLLSB TURN OFF LVL 1 
002658 6908 18C8 642 MVW TURESUL,R1 GET STATUS WORD OO27A4 4724 0002 758 MVWI 
00265C 7920 TVFFF 643 NWI X'*7FFF!',R1 URN OFF TEST STARTED BIT 0027A8 SF26 2BE6 759 SELB R7,DLLSB TURN OFF LVL 2 
002660 690D 18C8 644 MVW R1,TURESUL PUT STATUS WORD BACK OO27AC 4724 0003 760 MVWI 3 
002664 SOET7 645 J CEND 0027B0 5SF26 2BE6 761 SELB R7,DLLSB TURN OFF LVL 3 
646 * 0027B4G 6802 0000 762 LVOR B *— TURN 
002666 647 ERTN EQU * 764 3K aft ae ake a ak ae ak ake she ae afc ake ahe ai ak oie aie akc afc ae th 2c ah ok he af aie ae ie oie ae i ake ake she af afc ake ae ic ik afc af of aie afc af ke ae ake ae afc fe ake he afc af ok oe 
002666 4020 26D8 2666 648 MVA ERTN,EA SET ADDR TO BE PRINTED 765 * NAME- START TIMER PERIODIC SUBROUTINE 
00266C 5003 649 J UNSET 766 * 
00266E 650 ORTN FOU * 767 * PURPOSE- ISSUE START TIMER PERIODIC O1fOS. 
00266F 4020 26D8 266E 651 MVA ORTN, EA SET ADDR TO BE PRINTED 768 * 
002674 402c 18C8 0002 652 UNSET OWL X¥*0062', TURESUL SET UNEX INT BIT IN STAT WD 769 * CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDR. 
00267A 50C9 653 J BBB 770 * USE ENTRY POINT 'STPEO' FOR EVEN TIMER 
$28 : tea : AND 'STPE1* FOR ODD TIMER. 
00267C 656 INTER FQU * 773 * RETURN- OCCURS ONLY IF CC7 RESULTS FROM IO CMMD. 
00267C 6FOD 26D6 657 MVW R7,RINTE+2 SET UP RETURN 74 We ee ae ake ofk oke ae afk ate ae aie ae aie 2k ae ok afc ake aie ofc afc ofc af ofc oe of ake oe ake ofc ke ofc afc akc oe ae ok a ake ok afc oe af ake ale ote of ae ae afc ake fe ofc 2k afc ake ok kc oe 
002680 4020 272C 26DA 658 MVA TREN, PARM3 PUT DATA ADDR IN CNTL BLK 0027B8 775 STPEO EQU * 
002686 4724 272A 659 MVA PARM2,R7 PUT ADDR OF CNTL BLK IN R7 0027B8 4020 259E 27E0 776 MVA IDCBO,SI 
OO268A 601A 660 SVC HTOF HEX TO EBCDIC 0027BE 680C 27E0 777 10 TDCBO START TO 
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READ TIMER MODE SUBROUTINE 

READ TIMER MODE REGISTERS. 

QUENCE- he Sees CONTAIN THE RETURN ADDRESS. 


ENTRY POINT *"RDNO® FOR EVEN, AND 
TRDMT FOR ODD. 
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* RETURN- TO ADDRESS CONTAINED IN R6 - R5 WILL 
x NTAIN THE DATA THAT WAS READ. 
Ce ee ta eee ee eee eee ee ee ee eee Me He ke he oe ae ke ake ok ok ok 
RDMO EOU 
MVA RNO, SI 
To RMO- READ TIMER MODE 
BCC 7+RD DMO0O 
BAL E-LR7 BAD CC 
RDMOO MVW RM2,RS GET MODE DATA 
(R6F RETURN 
RDM1 EQU. * 
MVA  RM1,ST 
IO RM1 READ TMR MODE 
BCC 7,RDM11 
BAL E-RT7 BAD CC 
RDM11 MVW RM3,R5 GFT MODE DATA 
‘ (R6{ RETURN 
RMO DC X'25008 READ TIMER MODE IDCB 
RM2 DC A (t>* 
RM1 DC X"°2500! READ TIMER MODE IDCB 
RM3 DC A (*¥- *) 
ro StS SSS SS SES SSS SSS SSS S SSS STE SESS SSS SS SS SSS SS eee ec eS eC SSS SS SS Ss 
* NAME- SET MODE SUBROUTINE 
* PURPOSE- WPITE TO THE TIMER MODE REGISTERS. 
* CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDRESS. 
x R5 MOST CONTAIN THE DATA TO BE WRITTEN. 
* USE ENTRY POINT *SETMO" FOR EVEN, AND 
* 'SETM1® FOR ODD. 
* RETURN- TO ADDRESS CONTAINED IN R6. 
een eae ae ee en a eee Bt He He se ae afc ae she af ke a ae fe i 2 ok 
SETMO EOU 
MVW RD2 PUT MODE DATA IN IDCB 
MVA £6, 5 
as) SET MODE 
BCC Foe TNR 
BAL E.R7 BAD CC 
SETM1 FOU * 
MVW  RS,RD3 PUT MODE DATA IN IDCB 
MVA RD4,Sz 
ae) RD1 SET MODE 
BCC 7,SETMR 
BAL E-R7 BAD CC 
SETMR B (26) RETURN 
RDO DC x'65c0r EVEN ADDR SET MODE IDCB 
RD2 DC a (> 4) 
RD1 DC X'65008 ODD ADDR SET MODE IDCB 
RD3 pC A (#2 *) 
WK we ae sie afc ah afc she fe ake Me ae ake Ae se ae a he she ae che ie afc Bh ah she fe aie ake ak afc ate ae ake aie afc ae ake she afe ae ah ake ake ake ake afc ake sie ofc ake ae af afc ade ae fe ake ae 
* NANE- SET TIMER VALUF SUBROUTINE 
* PURPOSE- WRITE TO TIMER VALUE REGISTERS. 
* CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDRESS. 
* RS MUST CONTAIN THE DATA TO BE WRITTEN. 
* USE ENTRY POINT "SETO" FOR EVEN, AND 
‘ 'SET1" FOR ODD. 
* RETURN- TO ADDRESS CONTAINED IN R6. 
Cena GAG ere eee ee et eee es PSS SESS SSS SS StS 
SETO EOU 
MYW SETV2 PUT TMR VAL DATA IN IDCB 
MVA BEhV0, ST 
TO SET VALUE 
BCC eee 
BAL ESR? BAD CC 
SET1 Eg * 
MVYW  RS,SETV3 PUT TMR VAL DATA IN IDCB 
MVA  SESV1,STI 
TO SETV 4 SET VALUE 
BCC 7,SETR 
BAL E’R7 BAD CC 
SETR B (£6) RETURN 
SETVO DC X'6400! EVEN ADDR SET VAL IDCB 
SETV2 DC A (*=* 
SETV1 DC X" 64008 ODD ADDR SET VAL IDCB 
SETV3 DC A (Fo) 
PSST SSS ES SS EST TT SS SESE ES SPS SELLS SEL SSS PSSST SS SSS SS TS ST SPSS STS SL St 
* NAME- PREPARE TIMERS SUBROUTINE 
* PURPOSE- ISSUE PREPARE COMMAND TO TIMERS. 
* CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDRESS. 
* RS MUST CONTAIN THE PREPARE DATA WORD. 
* RETURN- TO ADDRESS CONTAINED IN R6. 
PSS FSS EL SSeS SSE EL SSS SLE SPS SET Ss | FIG GIGI GR IOI I IG RR ki i i ak ak ake ake ak ale ak ake aie ake ae a 
PRE EQU. * 
MV¥W  RS,PREPD PUT PREP DATA IN IDCB 
NVA  IPREP,ST 
IO PREP PREPARE 
BCC , PRE! 
BAL R7 BAD CC 
PRE B (86) 
IPREP DC X"'6C00! PREP IDCB 


PREPD DC A (*=-* 
SOO IGOR IOI IGGIGIOOIOIOIOIGGIOI OIC IOI I IOI IOI OI IOI Oi i i kak toi ak 


: NAME- ERROR DETECTED SUBROUTINE 
* PURPOSE= HANDLE PROGRAM DETECTED ERRORS 
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* 
* CALLING SEQUENCE- ea MUST CONTAIN THE ADDRESS THAT THE 


* RROR WAS DETECTED AT. 
* RETURN- EVENTUALLY TO THE DCP 
ate afe afc ae ae ae af ah ake aft she afc ake ake of ae ake ake ake af afc sk afc sfc ake ake af ate ak ade afc afc ake ake ae ak ake af oft ake ake ke ake ake she abe akc ate ake afc fe ae ate afc ke 
E FOU * 
MVW  RT,EA SAVE ADDR IN R7 
AW ~4e EA SUBTRACT & BYTES FROM SAVED ADDR 
PSSST SPSS LSS SS SELES SSS SESS SSS SELES SS SS SSE SLES TES SS SSS ESE SESE SS SF ; 
* NAME- COPY CURRENT LEVEL SUBROUTINE 
* PURPOSE- TO VERIFY THAT CPU IS ON THE SPECIFIED 
LEVEL. 
* CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDRESS. 
* R5 MUST CONTAIN THE RIGHT JUSTIFIED S/B 
* Ree RENT LEVEL DATA. 
* RETURN- OCCURS TO ADDRESS CONTAINED IN R6 ONLY IF 
: CORRENT LEVFL IS THE SAME AS IS SPECIFIED 
BOI GIO OR IO I IG I GG I I I I I I a ga I IK kak ak ak akc ake ak ak ak ake ak ake ak ak ake akc ake a a 
COPY EQU * 
CPCL R7 | 
Cw R5,R7 IS CPU ON THE RIGHT LEVEL? 
JE coby 1 JUMP IF YES 
BAL  £,R7 ON WRONG LEVEL 
COPY! B (£6) 
Ae He she af ake ae ae ae fe oe ke ode OE ake ie She af ai ae afc ake ak afc af i she af she kk aie af afc ake afc ake afc ake aie ic ake ake ate afc afc af afe akc oe ade fe ake oe afk afc ac afc ake ae 
* NANE= TIMER INTERRUPT TEST SUBROUTINE 
* PURPOSE~ THE ADDRESSED TIMER IS STARTED APERIODIC 
* WITH THE VALUE SET TO 0. CONDITION CODES 
* ARE CHECKED AT OTO AND INTERRUPT TIMES. 
* STOPS OCCUR IF CC IS INCORRECT. 
* CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDRESS. 
" MERS MUST BE PREPARED, AND MODE MUST BE 
* th THE TRANSFER VECTORS MUST BE ALREADY 
* SET UP. THESE ROUTINES CAN BE USED ON 
* ANY LEVEL. 
* 


RETURN- TO ADDRESS 
SRST Ete Te Seat eee eee ee 


ITESO EQU 
MVW 


8 NTAINED IN R6. 


Me 3k aie ate ke FIGS IO HOI a IOI IOI fog i ik 


HvW R6,TTESR*2 SET UP RETURN 
BAL SETO,R6 SET EVEN TMR VAL TO 0 
HVA  IT3, INTRO SET INT EXP STATE 
MVA Stab st 
ake) STAP START EVEN TIMER 
BCC 7,172 
: BAL E/RT BAD CC 
IT2 LEX , 
IT3 EQU. * 
TESR B *-* RETURN 
STAP DC X'*67008 START EVEN TMR - APERIODIC 
: DC A (=) 
ITES1 EQU * 
VW 6, ITER+2 SET UP RETURN 
SLL 16,5 
BAL SEf1_R6 SET ODD TMR VAL TO 0 
MVA IT7,INTR1 SET INT EXP STATE 
MVA STP,ST 
TO STP START ODD TMR 
BCC 7,IT6 
: BAL £,R? BAD CC 
IT6 LEX , 
IT7 EQU. * 
ITER B ox RETURN 
STP DC X'67008 START ODD TMR - APERIODIC 
pc A (*=* 
XFFFF DC X"FFFF? 
XFFFC DC X' FFFC! 
EVENM DC A (*-% 
EVENV DC A (k= * 
ODDM DC A (*=% 
OD DC A (*= * 
ae He ie ake 3h ae she she ac she she she he ake she afe ake afc fe afc aie ae afe afc ae ake ate fe ae afc age afc afc ake ae she ake ake she afc ake atc she akc aie ake ake ake she ake kc afc ake ade ae ae ake afc aie af 
* NAME- TIMER INTERRUPT SERVICE SUBROUTINES. 
* PURPOSE- TO SERVICE TIMER INTERRUPTS CHECK COND. 
: CODES, AND CHECK INTERROPT fps 
* CALLING SEQUENCE- PLACE ADDRESSES OF THESE ROUTINES, "INTO 
* FOR EVEN AND 'INT4" FOR ODD 
* APPROPRIATE TRANSFER VECTORS. Nerd ge 
* CAUSING AN INTERRUPT PUT THE RETURN ADDRESS 
* IN "IN OR EVEN, ‘INTR1' FOR ODD. IF 
* THESE bAstTrons ARE’ ZERO WHEN AN INTERRUPT 
* OCCURS, NO INTERRUPT IS EXPECTED, AND THAT 
x IS AN BRROR CONDITION. THE POSIT{ONS ARE 
* ZEROED JUST BEFORE RETURN OCCURS. 
* RETURN- DRESS CONTAINED IN "INTRO® OR 'INTRI'. 
SO ee ee ne ae ae ee eee ae ee ee ee ee ee 
INTO EQU . 
BCC : INTOO 
BAL BAD CC AT INT TINE 
INTOO BAL Ene bo RG STOP TIMER 0 
INTOA CW IDO,R9 
JE InvT6 1 
BAL  £,R7 BAD INTERRUPT ID 
INTO1 TWI -4 INTRO WAS INT EXPECTED? 
INZ INtO2 JONP YF YES 
BALE, R? UNEXPECTED INTERRUPT 
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ae 2K ok ale 2K ate oe ak ake afc afc ak fe fe aye ake oie afc af ake oe 3 afc ake ake akc aK ode 3k oie ake fe ote ie oe ae afc ake ae afc ake ake ake ok ate ae ake of oe ate ak ake ofc ak 2k ake 3 
* 
* NAME- RESET AND STOP COMMANDS ROUTINE 
* PURPOSE- VERIFY THAT RESET AND STOP COMMANDS WORK 
* PROPERLY AND THAT THEY DONT DISTURB THE 
* VALUE REGISTERS. RESET COMMANDS SHOULD 
* ZERO THE MODE REGISTERS. 
* METHOD- ISSUE THE REQUIRED COMMANDS. 
oe fe fe she afc af ake she fe ae ake ae fe afc ae ae ake aie ac kk ake oie ake ok ke ok ok 2c ake ak ode ake ake ake ake ake ode ofc ake ake ok sk fe sk ake ok oie ake ake fe kc ake ok ok 3k ake ake ok 2k ok 3k 
T25 EQU. * 
MVWI X'0300", TRIN SET RTN/CKPT 0 {Kee EKER KE KKK 
BAL RSETO,R6 RESET TMR 0 
: BAL STOP1,R6 STOP TMR 1 
BAL  RDMO,R6 GO RFAD TMR © MODF 
CW R3,R5 
JE 726 
: BAL  £,R7 TMR O MODE WASNT ZERO 
T26 BAL  RDM1,R6 GO READ TMR 1 MODE 
CW ODDM, RS 
JE T27 
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. BALE, R7 THR 1 MODE WAS CHANGED 
T27 BAL  RDV1,R6 GO READ THR 1 VAL 
cw ODDV,R5 
JE 728 
. BAL yRT THR 4 VAL WAS CHANGED 
728  ##BAL  RDVO GO READ TMR CO VAL 
cH BVENt, S, 
. BAL E 227 THR O VAL WAS CHANGED 
T29. BAL  RSET1,R6 RESET THR 4 
: BAL STOPO,R6 STOP THR 0 
AWl IRTN >>>>>>>>>>> CKPT 1 <KeK KKK KKK 
BAL ron R6 GO READ THR 1 MODE 
CH r§ 
JE 136. 
. BAL > RT TMR 1 MODE WASNT 0 
730 BAL  RDVO READ TMR O VAL 
CW EVENG, BS 
JE 7 
: BAL  £,R7 THR O VAL WAS CHANGED 
T31 BAL RDMO,R6 GO READ TMR 0 MODE 
CW R3,R5 
JE T35 
. BAL  £,R7 THR O MODE WASNT 0 
T32 BAL RDV1,R6 GO READ THR 1 VAL 
CW ODDV, R5 
JE T33 
BAL  £,R7 THR 1 VAL WAS CHANGED 
BICC IOI ROIOR Rakai ror IGOR GiGi IOI RIC RIOR Ok gi ie ake ieee ake ai ate ae ae age ake ae ade ate ae he age ae he 
te 
* NAME- VALUE REGISTER DATA CHECK 
* PURPOSE- VERIFY THAT DIFFERENT DATA PATTERNS CAN 
* BE WRITTEN AND READ TO AND FROM THE VALUE 
* REGISTERS. 
* METHOD- ISSUE THE REQUIRED COMMANDS. 
wh ae fe afe akc ake afc af akc afc ate ae afc she fe she ae abe afc she aie age af ac ak she fe abe afc ale fe ale ade ake afc she ae abe af abe abe afc akc abe she ae abe he 2c aie she ade age ae ak abe oie ake af ic ae 
733 EQU. * 
MVWI X'O4O00', TRIN SET REN/CKPT 0 <<<eé eee Ce KK KKK 
MVA ,R3 _ START ADDR-INCR-THRO 
P HVA  EN,R2 START ADDR-DECR-TMR1 
734 MVW R3) ,R5 PUT WRITE DATA IN R5 
BAL ETO! RG WRITE THR O VALU 
VW R2)-R5 PUT WRITE DATA tN RS 
. BAL ET1,R6 WRITE TMR 1 VALUE 
BAL  RDVO,R6 READ TMR 0 VALUE 
CW (83) eR5 
JE 35 
. BAL  £,R7 INCORRECT TMR 0 VALUE 
T35 BAL  RDV1,R6 READ TMR 1 VALUE 
CW (82) +R 
JE 36 
; BAL  £,R7 INCORRECT TMR 1 VALUE 
[36 CW AEN, R3 END OF LOOP? 
JE T37 JUMP IF YES 
AWI 2_R3 INCR R3 
AWT neg? DECR R2 
He He ake she ae af oe ake ake ae 3h ae ake he fe afc ake afc afc ake ae ak afe aie ake ake afc afc age aie aie ake ae ade fe ae ofe afc afc ake afc ake ake ae aie ah ae ake afc ake ae ake ale afc sie ake aie ok 
ok 
* NAME- MODE REGISTER DATA TEST 
* PURPOSE- VERIFY THAT DIFFERENT DATA PATTERNS CAN 
* BE WRITTEN AND RFAD TO AND FROM THE MODE 
* REGISTERS. 
* METHOD- ISSUE THE REQUIRED COMMANDS. 
Bg ee ae ON ere pare ea ate aoe re a eters 
T EOU 
MV WI Kr 9500" ,IRTN SET RIN/CKPT 0 KKKKKKKE KKK 
MVA  STT R3 START ADDR-TMR 0 
. MVA ENN, BS START ADDR - RECR - TMR1 
T38 MVW i zhore PUT MODE DATA IN RS 
BAL CR WRITE TMR O 
MVW PUT MODE DATA IN RS 
, BAL BS (fe. WRITE TMR1 MODE 
BAL RDMO,R6 READ TMR 0 MODE 
CW 483) ® 
JE 
. BAL ~R7 INCORRECT TMR 0 MODE 
739 BAL  RDM1,R6 READ TMR 1 MODE 
cw Au3) 
. BAL /RT INCORRECT TMR 1 MODE DATA 
T4O CW AENN,R3 END OF LOOP? 
JE TY 1 JUMP IF YES 
AWI 2,R3 INCR R3 
AWX -2,R2 DECR R2 
J 736 LOOP 
pee SNe LGU se Wee aR os ee 
* NAME- INTERRUPT ON ALL LEVELS TEST 
* PURPOSE- VERIFY THAT BOTH TIMERS WILL INTERRUPT 
* PROPERLY ON ALL INTERRUPT LEVELS. 
* METHOD- PREPARE TIMERS TO A LEVEL, SET MODE TO A 
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CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
1242 INTOO {ADBRESS. HEX LOCATION (OOO02ACC) IN CSECT(I5000 ) LENGTH (4) 785 PERTN ADDRESS. HEX LOCATION (000027DC) IN CSECT(I5000 ) LENGTH(4) 
1246 INTO1 ADDRESS. HEX LOCATION (OOOO2ADA) IN CSECT(I5000 ) LENGTH(6) 72 PID ADDRESS, HEX SOC RTT OR ee eeu aae ite ae a Leer) 
1249 INTO2 ADDRESS. HEX LOCATION (OOOO2AE6) IN CSECT(I5000 LENGTH (4 83 84 85 86 87 88 89 90 91 
1261s INTT ‘ADDRESS. HEX Sree tas in I ) 5000 | fs sau’ ne: aoe (“Ger Gee. See. Sane aus. aoe 
. B N CSECT(I LENGTH (1 
1255 ( ( ) 110 111 112 113 #1146 #115 #577 578 582 
1265 INTIA ADDRESS. HEX LOCATION (OOO0C2BOF) IN CSECT(I5(Q[0 ) LENGTH(4) 583° 676 677 
1294 1311 1349 1117 PRE ADDRESS. HEX LOCATION (00002426) IN CSECT (15000 L LENGTH (1) 
1264 INT10 ADDRESS. HEX LOCATION(OO002BOA) IN CSECT(I5000 ) LENGTH (4) 1724 81737) «#1746 #1755 1776 «1785 AT94 1815 1824 
1262 1283 1833 1854 1863 1872 1984 2086 2168 2191 2216 
1268 INT11 ADDRESS. HEX LOCATION(00002B18) IN CSECT(I5000 ) LENGTH (6) 2228 2300 
1266 1126 PREPD ADDRESS. HEX LOCATION (00002A42) IN CSECT(I5000 ) LENGTH (2) 
1271 INT12 ADDRESS. HEX LOCATION (00002B24) IN CSECT(I5(00 +) LENGTH(4) 1118 
126 ? 1123 PRE1 ADDRESS. HEX LOCATION (00002A3C) IN CSECT(I5000 ) LENGTH(4) 
1125 IPREP ADDRESS. HEX LOCATION (00002A40) IN CSECT(I5000 ) LENGTH (2) 1721 
864 1119 11 714 PSW ADDRESS. HEX LOCATION (00002750) IN CSECT(I5000 ) LENGTH (2) 
6 86 IRC ADDRESS. HEX LOCATION(000026F0) IN CSECT(I5000 ) LENGTH(2) 375 
664 73 PTY PE ADDRESS. HEX LOCATION (00000232) IN CSECT(I5000 ) LENGTH (1) 
682 IRTN ADDRESS, HEX LOCATION (090026 DA) IN CSECT(I5000 _) LENGTH (2) 2319 232% 2347 2349 2389 2391 2419 2421 2460 
658 672 683 1441 1464 93 1531 (1553 1563 2462 2490 2492 2531 2533 256 2563 2631 2633 
1584 1611 1644 1681 1719 1764 1803 1842 1899 2719 2721 2802 2804 2899 2901 
1914 1929 1942 1947 1962 1980 2010 2045 2063 685 RCMS ADDRESS. HEX LOCATON (066026 DF) IN CSECT(I5000 ) LENGTH(18) 
2082 2120 2145 2161 2178 24197 2223 2244 2266 718 
2298 2380 2451 2522 2614 2714 2798 2895 718 RCMSG ADDRESS. HEX LOCATION (00002760) IN CSECT(I5000 ) LENGTH (2) 
1256 ISAV ADDRESS. HEX LOCATION (COOO2AF8) IN CSECT(I5000 ) LENGTH (2) 668 
1721 1971 2307 1025 RDMO ADDRESS. HEX LOCATION (0000297A) IN CSECT(I5000 ) LENGTH(1) 
1210 ITER ADDRESS. HEX LOCATION(0Q002AB0) IN CSECT(I5000 ) LENGTH (4) 1559 1588 1622 1690 2054 
1198 1030 RDMOO ADDRESS. HEX LOCATION(0000298C) IN CSECT(I5000 ) LENGTH (4) 
1193 ITESR ADDRESS. HEX LOCATION(O0002A84) IN CSECT(I5000 ) LENGTH (4) 1028 
17181 1032 RDM1 ADDRESS. HEX LOCATION (00002994) IN CSECT(I5000 ) LENGTH(1) 
1180 ITESO ADDRESS. HEX LOCATION (0000260 IN CSECT (5000 ) LENGTH (1) 1567 1593 1612 1695 2129 
1729 1741 1747 1756 1768 80 1786 1795 1810 1037 RDM11 ADDRESS. HEX LOCATION(000029A6) IN CSECT(I5000 ) LENGTH (4) 
1819 1825 1834 1849 1855 1867 1873 1035 
1197 ITES1 ADDRESS. HEX Bg a9 497th IN CSECT (15000 } LENGTH (1) 993 RDVO ADDRESS. _HEX Bot tous gee eG IN CSECT(I5000 ) LENGTH(1) 
1732 1738 1750 1759 #1771 #21777 += «1789 += «#1798 1807 1556 1603 1617 1653 1915 1930 2053 
1816 1828 1837 1846 1858 1864 1876 998 RDVOO ADDRESS. HEX LOCATION(00002950) IN CSECT(I5000 ) LENGTH (4) 
1190 IT2 ADDRESS. HEX LOCATION (00002282) IN CSECT(I5000 ) LENGTH (2) 996 
1187 1000 RDV1 ADDRESS. HEX LOCATION (00902958) IN CSECT(I5000 ) LENGTH(1) 
1192 IT3 ADDRESS. HEX LOCATION (00002A84) IN CSECT(I5000 ) LENGTH (1) 1564 1598 1627 1658 1948 1963 2128 
1184 1005 RDV11 ADDRESS. HEX LOCATION(0000296A) IN CSECT(I5000 ) LENGTH (4) 
1207 IT6 ADDRESS. HEX LOCATION (QOOO2AAE) IN CSECT(I5000 +) LENGTH(2) 1003 
1204 1071 RDO ADDRESS. HEX LOCATION(000029E6) IN CSECT(I5000 ) LENGTH(2) 
1209 IT7 ADDRESS. HEX LOCATION(00002AB0) IN CSECT(I5000 ) LFNGTH(1) 862 1059 1060 2028 2029 
1201 1073 RD1 ADDRESS. HEX LOCATTON (090029 EA) IN CSECT(I5000 ) LENGTH (2) 
40 T5000 CSECT. START(00002500) LENGTH (6486) ESDID (1) 875 1065 1066 2102 2103 
40 1072 RD2 ADDRESS. HEX LOCATION (000029E8) IN CSECT(I5000 ) LENGTH(2) 
1372 LL SB ADDRESS. HEX LOCATION (00002BE0) IN CSECT(I5000 1 LENGTH (2) 1058 
632 634 732 734 753 55 1974 1o76 2074 1074 RD3 ADDRESS. HEX LOCATION(OOQ029EC) IN CSECT(I5000 ) LENGTH(2) 
2076 2146 2148 2207 2209 2301 2303 2589 2591 1064 
2640 2642 2662 2664 2681 2683 2708 2709 2728 679 RINTE ADDRESS. HEX LOCATION (000026D4) IN CSECT(I5000 ) LENGTH(4) 
273C 2749 2751 2766 2768 2792 2793 2809 2811 657 671 
2833 2835 2856 2858 2889 2890 2905 2907 2928 1940 RMO ADDRESS. HEX LOCATION (000029AE) IN CSECT(I5000 ) LENGTH(2) 
751 LVO ADDRESS. HEX LOCATION (000C278A) IN CSECT(I5000 ) LENGTH (1) 1042 RM 1 eR ee ata tr aa a IN CSECT(I5000 ) LENGTH (2) 
756 LVOA ADDRESS. HEX LOCATION (0000279C) IN CSECT(I5000 ) LENGTH(4) 1041 RM2 Pr ta HEX LOCATION(000029B0) IN CSECT(I5000 ) LENGTH (2) 
762 LVOR ADDRESS. HEX LOCATION (090027B4) IN CSECT(I5000 ) LENGTH (4) 1043 RM3 iano HEX LOCATION (000029B4) IN CSECT(I5000 ) LENGTH (2) 
565 MK ADDRESS. HEX LOCATION (O00C2S5A4) IN CSECT(I5000 ) LENGTH(1) 974 RSETR SOO RER esata LOCATION (00002932) IN CSECT(I5000 ) LENGTH (4) 
709 MKMSG ADDRESS. HEX LOCATION (C0002732) IN CSECT(I5000 LENGTH(19 964 RSETO ADDRESS. HEX LOCATION (0000290E) IN CSECT(I5000 LENGTH (1 
702 ‘ ) ( i 1585 2007 2068 2261 2277 5b o 
336 N00001 ADDRESS. HEX LOCATION (00002510) IN CSECT(I5000 ) LENGTH (2) 969 RSET1 FS TT eet aie Ce uae ee ie IN CSECT(I5000 ) LENGTH (1) 
348 N00002 ADDRESS. HEX LOCATION (00002522) IN CSECT(I5C00 ) LENGTH(2) 976 RSO ADDRESS, HEX LOCATION (00002936) IN CSECT(I5000 ) LENGTH(2) 
354 NO0003 ADDRESS, HEX LOCATION (0000252E) IN CSECT(I5000 ) LENGTH (2) 978 RS1 BUDER Sea ue xD OCn TCE Ce00ueo 22) IN CSECT(I5000 ) LENGTH (2) 
1411 0c 3 , RDDRESS. HEX LOCATION(O0002C6C) IN CSECT(I5090 ) LENGTH (1) 710 RTN BDDRES 3: HEX LOCATION (0000273C) IN CSECT(I5000 ) LENGTH(2) 
1414 OC 3A ADDRESS. HEX LOCATION (00002C74) IN CSECT(I50CO ) LENGTH(4) 1008 RVO ADDRESS. HEX LOCATION (00002972) IN CSECT(I5000 ) LENGTH(2) 
1418 OC 3B , RDDRESS. HEX LOCATION (00002C84) IN CSFCT(IS000 ) LENGTH (6) 1010 RV1 Saat Aho IN CSECT(I5000 ) LENGTH (2) 
1396 OC 32 ADDRESS. X LOCATION (09002C3E) IN CSECT(I5090 ) LENGTH (2) 1009 RV2 ADDRESS. HEX LOCATION (00002974) IN CSECT(I5000 ) LENGTH(2) 
1406 aii9" e430 1424 2 2784 2884 2975 998 
1282 oc 4 ,RDDRESS. HEX LOCATION(00002B3A) IN CSECT(I5000 ) LENGTH (1) 1011 RV3 , ADDRESS. HEX LOCATION (00002978) IN CSECT(I5000 ) LENGTH (2) 
1218 ODDKM ADDRESS. HEX LOCATION(COOO2ACC) IN CSECT(I5000 ) LENGTH(2) 0 RO REGISTER. HEX VALUE {90000000) 
1568 1594 577 677 1720 1721 1722 1900 1901 1970 1971 
1219 ODDV ADDRESS. HEX LOCATION (00002AC2) IN CSECT(I5000 ) LENGT™H(2) 2011 2012 2245 2246 2306 2307 2308 
1565 1599 16 0 R1 REGISTER. HEX VALUE (90000001) 
730 OFF ADDRESS. HEX LOCATION (00002762) IN CSECT(I5000 ) LENGTH (1) 520 582 628 629 642 ° 643 644 676 1443 
612 625 1444 1458 1459 2267 2268 2340 2341 2344 2369 
740 OFFR ADDRESS. HEX LOCATION(C0002786) IN CSECT(I5000 ) LENGTH (4) 2370 2373 2410 2411 2414 2440 2441 2444 2481 
731 732 2482 2485 2511 2512 2515 2552 2553 2556 2582 
75 OPWD1 ADDRESS. HEX LOCATION(QO00180E) IN CSECT(IS000 +) LENGTH(1) 2583 2586 2627 2628 2629 
669 0 R2 REGISTER. HEX VALUE (90000902) 
650 ORTN ADDRESS. HEX LOCATION(9000266E) IN CSECT(I5000 ) LENGTH (1) 571 675 1646 1650 1650 1650 1659 1666 1683 
651 698 1687 1687 1687 1696 1703 
390 OUT ABSOLUTE. HEX VALUE(00000000) 0 R3 REGISTER. HEX VALUE (90000003) 
593 +678 587 673 674 1554 1589 1613 1623 1645 1648 
1310 02 ADDRESS. HEX LOCATION (OQOO2B6A) IN CSECT(I50CO ) LENGTH(1) 164s 1948 1634 1663 1665 1682 1685 1685 1685 
1293 O4 ADDRESS. HEX LOCATION(OQO002B4E) IN CSECT(I5000 ) LENGTH(1) 0 R4 REGISTER. HEX VALUE (00000004) 
1287 592 669 670 672 1449 1451 1452 1453 1454 
1318 06 ADDRESS. HEX LOCATION(OOCO2B7A) IN CSECT(I5000 ) LENGTH(1) 0 RS REGISTER. HEX VALUE (90000905) 
1301 544 818 839 857 #42858 859 860 861 862 
1326 07 ADDRESS. HEX LOCATION (00002B8A) IN CSECT(I5000 ) LENGTH(1) 863 864 865 866 #867 #4«868 870 871 872 
1304 873 874 875 876 877 878 879 880 916 
104 PARMARA ADDRESS. HEX LOCATION(QO00196E) IN CSECT(I5C000 ) LENGTH (1) 998 1005 1030 1037 1058 1064 1089 1095 1118 
346 1159 1182 1199 1447 1448 1449 1494 1499 1504 
702 PARM1 ADDRESS. HEX LOCATION (00002722) IN CSECT(I5000 ) LENGTH(2) 1509 1514 1519 1557 1560 1565 1568 1589 1594 
591 1599 1604 1613 1618 1623 1628 1648 1650 1654 
705 PARM2 ADDRESS. HEX LOCATION (0000272A) IN CSECT(I50CO ) LENGTH(2) 1659 1685 1687 1691 1696 1723 1725 1730 1733 
573 659 1736 1739 1742 1745 1748 1751 #1754 1757 + «1760 
706 PARM3 ADDRESS. HEX LOCATION (C000272C IN CSECT(I5000 ) LENGTH (2) 1765 1769 1772 1775 1778 1781 #1784 #1787 =# «1790 
572 578 583 658 #662 65 1793 1796 1799 1804 1808 1811 1814 1817 1820 
1823 1826 1829 1832 1835 1838 1843 1847 1850 
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REFERENCES 
LOCATION (00003528) 
LOCATION (00003550) 
LOCATION (00002DC 2) 
LOCATION (00002E0C) 
LOCATION (C0002F1A) 
LOCATION (00002E28) 
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LOCATION (00003E0E) 
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LOCATION (0000321E) 
LOCATION (00003578) 
LOCATION (000035C6) 
LOCATION (000035CC) 
LOCATION (000035D0) 
LOCATION (000035£E2) 
LOCATION (000035F6) 
LOCATION (00003600) 
LOCATION (00003604) 
LOCATION (00003626) 
LOCATION (0000362A) 
LOCATION (00003620) 
LOCATION (00003642) 
LOCATION (00003656) 
LOCATION (00003660) 
LOCATION (00003664) 
LOCATION (000036AA) 
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LOCATION (000037C0) 
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LOCATION (000037E2) 
LOCATION (000037EC) 
LOCATION (000037FE) 
LOCATION (00003812) 
LOCATION (0000381C) 
LOCATION (00003820) 
LOCATION (00003866) 
LOCATION (0000386A) 
LOCATION (00003860) 
LOCATION (0000387C) 
LOCATION (00003890) 
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LENGTH (6) 
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CROSS-REFERENCE LISTING 


REFERENCES 

LOCATION (0000389E) 
LOCATION (000038C6) 
LOCATION (000038CA) 
LOCATION (000038C0) 
LOCATION (000038DC) 
LOCATION (000038F0) 
LOCATION (000038FA) 
LOCATION (000038FE) 
LOCATION (00003914) 
LOCATION (00003158) 
LOCATION (00003 172) 
LOCATION (0000318A) 
LOCATION (0000318C) 
LOCATION (000031A6) 
LOCATION (00003188) 
LOCATION (000031D2) 
LOCATION (000031Ea) 
LOCATION (000031EC) 
LOCATION (00003206) 
LOCATION (00002674) 
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LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 


LENGTH (2) 
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